<html><head>
    <meta http-equiv="content-type" content="text/html; charset=UTF-8"><title>Thread.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">;   PureBasic - Thread example file
</font><font color="#3A3966">;
</font><font color="#3A3966">;    (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<b><font color="#3A3966">Procedure</font></b> <font color="#3A3966">AlertThread</font>(Parameter)

  <b><font color="#3A3966">Repeat</font></b>
    <b><font color="#3A3966">Debug</font></b> "Alert !"
<font color="#3A3966">    Delay</font>(3000)
  <b><font color="#3A3966">ForEver</font></b>

<b><font color="#3A3966">EndProcedure</font></b>

<font color="#3A3966">CreateThread</font>(@AlertThread(), 154)

<font color="#3A3966">MessageRequester</font>("Info", "It will display an alert every 3 seconds."+<font color="#924B72">#LF$</font>+"Click To finish the program", 0) 
</font></pre>
</body></html>
